home *** CD-ROM | disk | FTP | other *** search
/ My Neighborhood / My Neighborhood.iso / mac / MacFiles / ExitDS.Dxr / 00001.ls next >
Encoding:
Text File  |  1997-11-21  |  352 b   |  15 lines
  1. on Talk soundFile
  2.   puppetSound(soundFile)
  3.   updateStage()
  4.   repeat while soundBusy(1)
  5.     set temp to random(4)
  6.     set goatHead to the number of cast ("goat" & temp)
  7.     set the castNum of sprite 4 to goatHead
  8.     updateStage()
  9.     wait(6)
  10.   end repeat
  11.   puppetSound(0)
  12.   set the castNum of sprite 4 to the number of cast "goat1"
  13.   updateStage()
  14. end
  15.